home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / e / mailinglists / amigae.0793july.archive / 000031_crash!kirk.safb.af.mil!BWILLS_Wed, 14 Jul 93 05:47:22 PST.msg < prev    next >
Internet Message Format  |  1994-05-26  |  1KB
  1. Received: by bkhouse.cts.com (V1.16/Amiga)
  2.     id AA00000; Wed, 14 Jul 93 05:47:22 PST
  3. Received: from kirk.safb.af.mil by crash.cts.com with smtp
  4.     (Smail3.1.28.1 #15) id m0oG5lo-00008sC; Wed, 14 Jul 93 05:17 PDT
  5. Message-Id: <m0oG5lo-00008sC@crash.cts.com>
  6. Date: 14 Jul 93 07:13:00 CST
  7. From: "Barry D. Wills" <BWILLS@kirk.safb.af.mil>
  8. To: "amigae" <amigae@bkhouse.cts.com>
  9. Subject: re: Mod()
  10.  
  11. Yeah, Jason.  I got the same thing from mod.  According to E21b (on *my*
  12. computer) Mod (40000001, 400) = 610.  Here's a mod() function I wrote:
  13.  
  14. ----- CUT HERE ----------------------------------------------------------------
  15.  
  16. PROC mod (this, bythis) RETURN this - Mul (Div (this, bythis), bythis)
  17.  
  18. PROC main ()
  19.   WriteF ('Mod (40000001, 400) = \d\n', Mod (40000001, 400))
  20.   WriteF ('mod (40000001, 400) = \d\n', mod (40000001, 400))
  21. ENDPROC
  22.  
  23. ----- CUT HERE ----------------------------------------------------------------
  24.  
  25. This program's output is:
  26.  
  27. Mod (40000001, 400) = 610
  28. mod (40000001, 400) = 1
  29.  
  30. Later.  -- Barry